home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / GEOP2BMP.SDA / GEOP2BMP.BIN (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.2 KB  |  70 lines
  1. 10 POKE55,.:POKE56,25:CLR:M$=CHR$(13):Z$=CHR$(.):Q$=CHR$(34):W=4653
  2. 20 FORI=1TO38:U$=U$+" ":NEXT:U$=U$+"[145]"
  3. 50 PRINT"[147]"
  4. 55 PRINT"[197]NTER DEVICE # OF SOURCE DRIVE.":PRINT"([197]NTER 0 TO EXIT.)"
  5. 65 PRINT"  8[145]":INPUTDR:IFDR=.THENPOKE56,160:PRINT"[142][147]":END
  6. 70 IFDR<4ORDR>30THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO55
  7. 75 POKE186,DR:POKE185,.:POKE184,8:POKE183,1
  8. 80 POKE187,21:POKE188,8:SYS65472:CLOSE8:IFPEEK(783)AND1THENI=DR:GOSUB600:GOTO55
  9. 85 OPEN15,DR,15:INPUT#15,J$,O$,H$,N$:CLOSE15:IFJ$="00"THEN90
  10. 87 PRINT"[147]";J$;",";O$;",";H$;",";N$:GOTO55
  11. 90 GOSUB800:PRINT:IFF$=""THENPRINT"[147][206][207] [198][201][204][197][211] [211][197][204][197][195][212][197][196]":GOTO55
  12. 200 POKE253,16:POKE254,16:OPEN8,DR,8,F$
  13. 210 PRINT"[147][210]EADING IN [199]EO[208]AINT FILE...":PRINT"[210]ECORD #:"
  14. 215 SYSW+78:CLOSE8:PRINT:P=PEEK(2):IFP=255THEN240
  15. 230 IFPTHENPRINT"[147][205]ORE THAN TWO COLORS USED IN FILE":GOTO55
  16. 235 PRINT"[147][194]AD FILE":GOTO55
  17. 240 FORI=.TOPEEK(253):READX,Y,Z:NEXT:POKEW+54,X:POKEW+55,Y:POKEW+56,Z:RESTORE
  18. 245 FORI=.TOPEEK(254):READX,Y,Z:NEXT:POKEW+58,X:POKEW+59,Y:POKEW+60,Z
  19. 250 Q=PEEK(156):P=(Q-31)/5*16:IFQ=0THENP=720
  20. 255 POKEW+22,PAND255:POKEW+23,P/256:Q=P*80
  21. 260 POKEW+34,Q-256*INT(Q/256):POKEW+35,Q/256:Q=Q+62
  22. 265 POKEW+2,Q-256*INT(Q/256):POKEW+3,Q/256
  23. 270 M=(P*80+61)/254:M=INT(M+1):PRINT"[201]T IS NOW ALL RIGHT TO REMOVE THE DISK"
  24. 280 PRINT"FROM THE SOURCE DRIVE.  [208]UT A FORMATTED"
  25. 285 PRINT"DISK INTO THE DESTINATION DRIVE.":GOSUB900
  26. 300 PRINT"[147]"
  27. 305 PRINT"[197]NTER DEVICE # OF DESTINATION DRIVE.":PRINT"([197]NTER 0 TO START OVER.)"
  28. 315 PRINT"  8[145]":INPUTDW:IFDW=.THEN50
  29. 320 IFDW<4ORDW>30THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO305
  30. 325 POKE186,DW:POKE185,8:POKE184,8:POKE183,1:POKE187,2:POKE188,.:POKE2,35
  31. 330 SYS65472:IFPEEK(783)AND1THENCLOSE8:I=DW:GOSUB600:GOTO305
  32. 335 OPEN15,DW,15,"U1 8 0 25 0":PRINT#15,"U2";8;.;25;.
  33. 340 INPUT#15,J$,O$,H$,N$:CLOSE8:IFJ$="00"THEN350
  34. 345 CLOSE15:PRINT"[147]";J$;",";O$;",";H$;",";N$:GOTO305
  35. 350 OPEN8,DW,.,"$$":PRINT"[147]0 ";:GET#8,A$,A$,A$,A$,A$,A$
  36. 355 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO355
  37. 360 PRINT:GET#8,A$,A$,A$,B$:N=ASC(A$+Z$)+256*ASC(B$+Z$):PRINT"[157]";N;
  38. 365 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO365
  39. 370 CLOSE8:IFN<MTHENPRINT"[147][206]OT ENOUGH ROOM ON DISK":CLOSE15:GOTO305
  40. 380 PRINT
  41. 385 PRINT"[197]NTER FILENAME FOR [194][205][208] FILE."
  42. 386 PRINT"([208]RESS <[210][197][212][213][210][206]> FOR DEVICE # PROMPT.)"
  43. 387 F$="":PRINTU$:INPUTF$:IFF$=""THENCLOSE15:GOTO300
  44. 390 OPEN8,DW,1,F$:INPUT#15,J$,O$,H$,N$:IFJ$="00"THEN393
  45. 392 CLOSE8:PRINT"";U$;"";J$;",";O$;",";H$;",";N$:GOTO380
  46. 393 PRINT"[147][215]RITING [194][205][208] FILE..."
  47. 395 SYSW+382:CLOSE8:PRINT"...[196]ONE":GOSUB900:GOTO50
  48. 600 PRINT"[147]?[196][197][214][201][195][197]";I;"[157] [206][207][212] [208][210][197][211][197][206][212]":RETURN
  49. 800 PRINT"[147][197]NTER DIRECTORY SEARCH STRING."
  50. 805 PRINT"  *[145]":INPUTA$:OPEN8,DR,.,"$"+A$:PRINT"[147]0 ";
  51. 810 GET#8,A$,A$,A$,A$,A$,A$
  52. 815 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO815
  53. 820 PRINT:PRINT"[195]ONVERT (Y/N)?"
  54. 825 GET#8,A$,A$
  55. 830 GET#8,A$,F$:B=ASC(A$+Z$)+256*ASC(F$+Z$):F$="":PRINT"[145][157]";B;
  56. 835 GET#8,A$:IFA$="B"THEN875
  57. 840 PRINTA$;:IFA$<>Q$THEN835
  58. 850 GET#8,A$:PRINTA$;:IFA$<>Q$THENF$=F$+A$:GOTO850
  59. 855 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO855
  60. 860 GETA$:IFA$="Y"THEN875
  61. 865 IFA$="N"THENPRINT"[145]":GOTO825
  62. 870 GOTO860
  63. 875 CLOSE8:RETURN
  64. 900 PRINT"[208]RESS <[210][197][212][213][210][206]>."
  65. 910 GETA$:IFA$<>M$THEN910
  66. 920 CLOSE8:CLOSE9:CLOSE15:RETURN
  67. 970 DATA0,0,0,255,255,255,0,0,246,221,221,0,221,0,221,0,221,0
  68. 980 DATA255,32,32,0,238,255,0,75,170,0,45,100,110,110,160,74,74,74
  69. 990 DATA117,117,117,160,226,160,160,112,112,158,158,158
  70.